perm filename LANG[SCR,LCS] blob
sn#197667 filedate 1976-01-19 generic text, type T, neo UTF8
00100 COMPILE;
01300 INSTRUMENT FM;
01400 ZOSCIL(P4,MAG/P2,P5);
01510 RANDI(P9*P7*MAG,MAG/P8);
01600 OSCIL(U2,P9*MAG,P10);
01700 OSCIL(U1,U3+P3*MAG,P6);
01800 OUTA←OUTA+U4; END;
01900
02500 FINISH;
02600
02700 ARRAY F5(512); <F1 is already present.
02800 SEG(F5);0,1 1,2 1 97 0,100;<Envelope
03000 SYNTH(F1);1 1 999;
03200
03300
03340 PLAY;FM 0 .80 440 2000 F5 F1 11 .01 440.06 F1;FINISH;
03350 BIGBIT←-1;
03400 PLAY;FM 0 602 440 2000 F5 F1 11 10 440.06 F1;FINISH;